set variableA "10"
puts $variableA;
set variableB [expr $variableA * 3];
puts $variableB

